﻿Public Class ven_eng_rec6

    Private Sub btnok_ven_eng_rec6_Click(sender As Object, e As EventArgs) Handles btnok_ven_eng_rec6.Click
        yc6 = Convert.ToSingle(txtyc6_eng_rec6.Text)
        pc6 = Convert.ToSingle(txtpc6_eng_rec6.Text)
        angpresn6 = Convert.ToSingle(txtangpresn6_eng_rec6.Text)
        angpresn6 = angpresn6 * (3.141592 / 180)
        angheli6 = 0
        angheli6 = angheli6 * (3.141592 / 180)
        mod6 = Convert.ToSingle(txtmod6_eng_rec6.Text)
        z6 = Convert.ToSingle(txtz6_eng_rec6.Text)
        mt6 = (pc6 * 10 ^ 6) / nrev
        dp6 = (mod6 * z6) / Math.Cos(angheli6)
        c6x = (2 * mt6) / dp6
        c6y = c6x * Math.Tan(angheli6)
        c6z = c6x * (Math.Tan(angpresn6) / Math.Cos(angheli6))
        m6x = -dp6 * 0.5 * c6y
        m6y = dp6 * 0.5 * c6x
        m6z = 0

        Me.Close()
    End Sub
End Class